;---------------------------------------
;multicolor plot by BRUSH/ELYSIUM
;---------------------------------------
;A=x
;Y=x
;col =$13,$14,$15,$16
;---------------------------------------
x1       = $60
col      = $61
ad       = $62

         *= $1000
         sta tu1+1
         sta tu2+1
         lsr a
         bcc hop1
         eor #$ff
         tax
         lda col
         sta tu1+2
         lda tab1m,x
         sta ad
         lda tab2s,x
         sta ad+1
         tya
         and #$f8
         tay
         lda (ad),y
tu1      ora $1000
         sta (ad),y
         rts
;---------------------------------------
hop1     tax
         lda col
         sta tu2+2
         lda tab1m,x
         sta ad
         lda tab1s,x
         sta ad+1
         tya
         and #$f8
         tay
         lda (ad),y
tu2      ora $1000
         sta (ad),y
         rts
;---------------------------------------
tab1m    .byte $00,$01,$02,$03
         .byte $04,$05,$06,$07
         .byte $40,$41,$42,$43
         .byte $44,$45,$46,$47
         .byte $80,$81,$82,$83
         .byte $84,$85,$86,$87
         .byte $c0,$c1,$c2,$c3
         .byte $c4,$c5,$c6,$c7
         .byte $00,$01,$02,$03
         .byte $04,$05,$06,$07
         .byte $40,$41,$42,$43
         .byte $44,$45,$46,$47
         .byte $80,$81,$82,$83
         .byte $84,$85,$86,$87
         .byte $c0,$c1,$c2,$c3
         .byte $c4,$c5,$c6,$c7
         .byte $00,$01,$02,$03
         .byte $04,$05,$06,$07
         .byte $40,$41,$42,$43
         .byte $44,$45,$46,$47
         .byte $80,$81,$82,$83
         .byte $84,$85,$86,$87
         .byte $c0,$c1,$c2,$c3
         .byte $c4,$c5,$c6,$c7
         .byte $00,$01,$02,$03
         .byte $04,$05,$06,$07
         .byte $40,$41,$42,$43
         .byte $44,$45,$46,$47
         .byte $80,$81,$82,$83
         .byte $84,$85,$86,$87
         .byte $c0,$c1,$c2,$c3
         .byte $c4,$c5,$c6,$c7
         .byte $00,$01,$02,$03
         .byte $04,$05,$06,$07
         .byte $40,$41,$42,$43
         .byte $44,$45,$46,$47
         .byte $80,$81,$82,$83
         .byte $84,$85,$86,$87
         .byte $c0,$c1,$c2,$c3
         .byte $c4,$c5,$c6,$c7
         .byte $00,$01,$02,$03
         .byte $04,$05,$06,$07
         .byte $40,$41,$42,$43
         .byte $44,$45,$46,$47
         .byte $80,$81,$82,$83
         .byte $84,$85,$86,$87
         .byte $c0,$c1,$c2,$c3
         .byte $c4,$c5,$c6,$c7
;---------------------------------------
tab1s    .byte $40,$40,$40,$40
         .byte $40,$40,$40,$40
         .byte $41,$41,$41,$41
         .byte $41,$41,$41,$41
         .byte $42,$42,$42,$42
         .byte $42,$42,$42,$42
         .byte $43,$43,$43,$43
         .byte $43,$43,$43,$43
         .byte $45,$45,$45,$45
         .byte $45,$45,$45,$45
         .byte $46,$46,$46,$46
         .byte $46,$46,$46,$46
         .byte $47,$47,$47,$47
         .byte $47,$47,$47,$47
         .byte $48,$48,$48,$48
         .byte $48,$48,$48,$48
         .byte $4a,$4a,$4a,$4a
         .byte $4a,$4a,$4a,$4a
         .byte $4b,$4b,$4b,$4b
         .byte $4b,$4b,$4b,$4b
         .byte $4c,$4c,$4c,$4c
         .byte $4c,$4c,$4c,$4c
         .byte $4d,$4d,$4d,$4d
         .byte $4d,$4d,$4d,$4d
         .byte $4f,$4f,$4f,$4f
         .byte $4f,$4f,$4f,$4f
         .byte $50,$50,$50,$50
         .byte $50,$50,$50,$50
         .byte $51,$51,$51,$51
         .byte $51,$51,$51,$51
         .byte $52,$52,$52,$52
         .byte $52,$52,$52,$52
         .byte $54,$54,$54,$54
         .byte $54,$54,$54,$54
         .byte $55,$55,$55,$55
         .byte $55,$55,$55,$55
         .byte $56,$56,$56,$56
         .byte $56,$56,$56,$56
         .byte $57,$57,$57,$57
         .byte $57,$57,$57,$57
         .byte $59,$59,$59,$59
         .byte $59,$59,$59,$59
         .byte $5a,$5a,$5a,$5a
         .byte $5a,$5a,$5a,$5a
         .byte $5b,$5b,$5b,$5b
         .byte $5b,$5b,$5b,$5b
         .byte $5c,$5c,$5c,$5c
         .byte $5c,$5c,$5c,$5c
;---------------------------------------
tab2s    .byte $41,$41,$41,$41
         .byte $41,$41,$41,$41
         .byte $42,$42,$42,$42
         .byte $42,$42,$42,$42
         .byte $43,$43,$43,$43
         .byte $43,$43,$43,$43
         .byte $44,$44,$44,$44
         .byte $44,$44,$44,$44
         .byte $46,$46,$46,$46
         .byte $46,$46,$46,$46
         .byte $47,$47,$47,$47
         .byte $47,$47,$47,$47
         .byte $48,$48,$48,$48
         .byte $48,$48,$48,$48
         .byte $49,$49,$49,$49
         .byte $49,$49,$49,$49
         .byte $4b,$4b,$4b,$4b
         .byte $4b,$4b,$4b,$4b
         .byte $4c,$4c,$4c,$4c
         .byte $4c,$4c,$4c,$4c
         .byte $4d,$4d,$4d,$4d
         .byte $4d,$4d,$4d,$4d
         .byte $4e,$4e,$4e,$4e
         .byte $4e,$4e,$4e,$4e
         .byte $50,$50,$50,$50
         .byte $50,$50,$50,$50
         .byte $51,$51,$51,$51
         .byte $51,$51,$51,$51
         .byte $52,$52,$52,$52
         .byte $52,$52,$52,$52
         .byte $53,$53,$53,$53
         .byte $53,$53,$53,$53
         .byte $55,$55,$55,$55
         .byte $55,$55,$55,$55
         .byte $56,$56,$56,$56
         .byte $56,$56,$56,$56
         .byte $57,$57,$57,$57
         .byte $57,$57,$57,$57
         .byte $58,$58,$58,$58
         .byte $58,$58,$58,$58
         .byte $5a,$5a,$5a,$5a
         .byte $5a,$5a,$5a,$5a
         .byte $5b,$5b,$5b,$5b
         .byte $5b,$5b,$5b,$5b
         .byte $5c,$5c,$5c,$5c
         .byte $5c,$5c,$5c,$5c
         .byte $5d,$5d,$5d,$5d
         .byte $5d,$5d,$5d,$5d
;---------------------------------------
         *= $1300
;---------------------------------------
col0     .byte $00,$00,$00,$00
         .byte $00,$00,$00,$00
         .byte $00,$00,$00,$00
         .byte $00,$00,$00,$00
         .byte $00,$00,$00,$00
         .byte $00,$00,$00,$00
         .byte $00,$00,$00,$00
         .byte $00,$00,$00,$00
         .byte $00,$00,$00,$00
         .byte $00,$00,$00,$00
         .byte $00,$00,$00,$00
         .byte $00,$00,$00,$00
         .byte $00,$00,$00,$00
         .byte $00,$00,$00,$00
         .byte $00,$00,$00,$00
         .byte $00,$00,$00,$00
         .byte $00,$00,$00,$00
         .byte $00,$00,$00,$00
         .byte $00,$00,$00,$00
         .byte $00,$00,$00,$00
         .byte $00,$00,$00,$00
         .byte $00,$00,$00,$00
         .byte $00,$00,$00,$00
         .byte $00,$00,$00,$00
         .byte $00,$00,$00,$00
         .byte $00,$00,$00,$00
         .byte $00,$00,$00,$00
         .byte $00,$00,$00,$00
         .byte $00,$00,$00,$00
         .byte $00,$00,$00,$00
         .byte $00,$00,$00,$00
         .byte $00,$00,$00,$00
;---------------------------------------
col1     .byte $40,$10,$04,$01
         .byte $40,$10,$04,$01
         .byte $40,$10,$04,$01
         .byte $40,$10,$04,$01
         .byte $40,$10,$04,$01
         .byte $40,$10,$04,$01
         .byte $40,$10,$04,$01
         .byte $40,$10,$04,$01
         .byte $40,$10,$04,$01
         .byte $40,$10,$04,$01
         .byte $40,$10,$04,$01
         .byte $40,$10,$04,$01
         .byte $40,$10,$04,$01
         .byte $40,$10,$04,$01
         .byte $40,$10,$04,$01
         .byte $40,$10,$04,$01
         .byte $40,$10,$04,$01
         .byte $40,$10,$04,$01
         .byte $40,$10,$04,$01
         .byte $40,$10,$04,$01
         .byte $40,$10,$04,$01
         .byte $40,$10,$04,$01
         .byte $40,$10,$04,$01
         .byte $40,$10,$04,$01
         .byte $40,$10,$04,$01
         .byte $40,$10,$04,$01
         .byte $40,$10,$04,$01
         .byte $40,$10,$04,$01
         .byte $40,$10,$04,$01
         .byte $40,$10,$04,$01
         .byte $40,$10,$04,$01
         .byte $40,$10,$04,$01
;---------------------------------------
col2     .byte $80,$20,$08,$02
         .byte $80,$20,$08,$02
         .byte $80,$20,$08,$02
         .byte $80,$20,$08,$02
         .byte $80,$20,$08,$02
         .byte $80,$20,$08,$02
         .byte $80,$20,$08,$02
         .byte $80,$20,$08,$02
         .byte $80,$20,$08,$02
         .byte $80,$20,$08,$02
         .byte $80,$20,$08,$02
         .byte $80,$20,$08,$02
         .byte $80,$20,$08,$02
         .byte $80,$20,$08,$02
         .byte $80,$20,$08,$02
         .byte $80,$20,$08,$02
         .byte $80,$20,$08,$02
         .byte $80,$20,$08,$02
         .byte $80,$20,$08,$02
         .byte $80,$20,$08,$02
         .byte $80,$20,$08,$02
         .byte $80,$20,$08,$02
         .byte $80,$20,$08,$02
         .byte $80,$20,$08,$02
         .byte $80,$20,$08,$02
         .byte $80,$20,$08,$02
         .byte $80,$20,$08,$02
         .byte $80,$20,$08,$02
         .byte $80,$20,$08,$02
         .byte $80,$20,$08,$02
         .byte $80,$20,$08,$02
         .byte $80,$20,$08,$02
;---------------------------------------
col3     .byte $c0,$30,$0c,$03
         .byte $c0,$30,$0c,$03
         .byte $c0,$30,$0c,$03
         .byte $c0,$30,$0c,$03
         .byte $c0,$30,$0c,$03
         .byte $c0,$30,$0c,$03
         .byte $c0,$30,$0c,$03
         .byte $c0,$30,$0c,$03
         .byte $c0,$30,$0c,$03
         .byte $c0,$30,$0c,$03
         .byte $c0,$30,$0c,$03
         .byte $c0,$30,$0c,$03
         .byte $c0,$30,$0c,$03
         .byte $c0,$30,$0c,$03
         .byte $c0,$30,$0c,$03
         .byte $c0,$30,$0c,$03
         .byte $c0,$30,$0c,$03
         .byte $c0,$30,$0c,$03
         .byte $c0,$30,$0c,$03
         .byte $c0,$30,$0c,$03
         .byte $c0,$30,$0c,$03
         .byte $c0,$30,$0c,$03
         .byte $c0,$30,$0c,$03
         .byte $c0,$30,$0c,$03
         .byte $c0,$30,$0c,$03
         .byte $c0,$30,$0c,$03
         .byte $c0,$30,$0c,$03
         .byte $c0,$30,$0c,$03
         .byte $c0,$30,$0c,$03
         .byte $c0,$30,$0c,$03
         .byte $c0,$30,$0c,$03
         .byte $c0,$30,$0c,$03
;---------------------------------------

